home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 June / 64er_Magazin_93-06_1993_Markt__Technik_de_Side_B.d64 / listing 8-3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  745b  |  28 lines
  1. 10 rem ***  hihat - effekt
  2. 11 :
  3. 12 :n1 = 937 :rem note 1
  4. 13 :n2 =1873 :rem note 2
  5. 19 :
  6. 20 rem * ton einschalten
  7. 21 :
  8. 22 s=54272:pokes+4,8:pokes+24,15 :rem  volle lautstaerke poken
  9. 23 pokes+6,249:pokes+5,0 :rem adsr poken
  10. 29 :
  11. 40 rem * hihat !
  12. 41 :
  13. 43 rem ersten ton spielen
  14. 45 :
  15. 50 pokes+4,129:pokes+1,100 :rem hellen rausch-ton spielen (hihat)
  16. 52 pokes,n1and255:pokes+1,n1/256 :rem  anschliessend normale tonhoehe poken
  17. 53 pokes+4,33:fori=1to50:next:pokes+4,32 :rem  und den ton anschlagen
  18. 54 fori=1to100:next :rem  warten
  19. 57 :
  20. 58 rem zweiten ton spielen
  21. 59 :
  22. 60 pokes+4,129:pokes+1,100 :rem hellen rausch-ton spielen (hihat)
  23. 62 pokes,n2and255:pokes+1,n2/256 :rem  normale tonhoehe poken
  24. 63 pokes+4,33:fori=1to50:next:pokes+4,32 :rem  und den ton anschlagen
  25. 64 fori=1to100:next :rem  warten
  26. 69 :
  27. 70 goto50 :rem  und zum anfang.
  28.